home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / codeco1a / frmaddin.frx < prev    next >
Encoding:
Text File  |  1999-06-26  |  1.2 KB  |  42 lines
  1.  í' Code for modErrHandling.bas (Module)
  2. ' By J.M.Goebel (hmg65@dialup.nacamar.de)
  3. ' This Code is Freeware if you use this code to develop new Applications
  4. ' it may only be distributed as Freeware!
  5.  
  6. 'This code must be copied into frmAddin.txtModErrHandling.text
  7. 'Of course the textbox must be multiline!
  8.  
  9.  
  10.  
  11. Option Explicit
  12. Public Const ComponentErrorOffset = 1000
  13. Public gStatus$
  14. Public Sub RaiseError(Number&, Description$, Source$)
  15.  
  16. Err.Raise Number, Description, Source
  17.  
  18. End Sub
  19.  
  20. Public Sub LogError(Number&, Description$, Source$, Status$, CodeLocation$)
  21.  
  22. Dim strEvent$
  23. If App.LogMode = 0 Or App.LogMode = 1 Then
  24.   App.StartLogging App.Path + "\" + App.EXEName + ".log", 2
  25. End If
  26.  
  27. strEvent = "Error: " & Number
  28. strEvent = strEvent + vbCrLf + "Description: " & Description
  29. strEvent = strEvent + vbCrLf + "Source: " & Source
  30. strEvent = strEvent + vbCrLf + "Status: " & Status
  31. strEvent = strEvent + vbCrLf + "CodeLocation: " & CodeLocation
  32. strEvent = strEvent + vbCrLf + "Time: " & Format(Now)
  33. strEvent = strEvent + vbCrLf + "Version: " & App.Major & "." & App.Minor & "." & 
  34. App.Revision
  35.  
  36.  
  37. App.LogEvent strEvent, vbLogEventTypeError
  38.  
  39.  
  40.  
  41. End Sub
  42. Text1Text1Text1